100 |
How do I enable the cross link support ( rectangular )
|
99 |
How do I show a link frmo bottom to top, or reverse, not from left to right
local oSurface,var_Elements,var_Link,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",0,64) var_Links = oSurface.Links var_Link = var_Links.Add(oSurface.Elements.Item(1),oSurface.Elements.Item(2)) var_Link.StartPos = 1 var_Link.EndPos = 1 |
98 |
What options to align the elements do I have if I use Arrange method
local h1,h2,h3,oSurface,var_Elements,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.BeginUpdate() oSurface.ShowGridLines = true var_Elements = oSurface.Elements h1 = var_Elements.Add("Top Alignment").ID var_Elements.Add("Element") var_Elements.Add("Element") var_Elements.Add("Element") h2 = var_Elements.Add("Center Alignment",null,96).ID var_Elements.Add("Element",null,96) var_Elements.Add("Element",null,96) var_Elements.Add("Element",null,96) h3 = var_Elements.Add("Bottom Alignment",null,178).ID var_Elements.Add("Element",null,192) var_Elements.Add("Element",null,192) var_Elements.Add("Element",null,192) var_Links = oSurface.Links var_Links.Add(oSurface.Elements.Item(1),oSurface.Elements.Item(2)) var_Links.Add(oSurface.Elements.Item(1),oSurface.Elements.Item(3)) var_Links.Add(oSurface.Elements.Item(2),oSurface.Elements.Item(4)) var_Links.Add(oSurface.Elements.Item(2),oSurface.Elements.Item(3)) var_Links.Add(oSurface.Elements.Item(5),oSurface.Elements.Item(6)) var_Links.Add(oSurface.Elements.Item(5),oSurface.Elements.Item(7)) var_Links.Add(oSurface.Elements.Item(6),oSurface.Elements.Item(8)) var_Links.Add(oSurface.Elements.Item(6),oSurface.Elements.Item(7)) var_Links.Add(oSurface.Elements.Item(9),oSurface.Elements.Item(10)) var_Links.Add(oSurface.Elements.Item(9),oSurface.Elements.Item(11)) var_Links.Add(oSurface.Elements.Item(10),oSurface.Elements.Item(12)) var_Links.Add(oSurface.Elements.Item(10),oSurface.Elements.Item(11)) oSurface.Template = [DefArrange(3) = 0] // oSurface.DefArrange(3) = 0 oSurface.Arrange(h1) oSurface.Template = [DefArrange(3) = 1] // oSurface.DefArrange(3) = 1 oSurface.Arrange(h2) oSurface.Template = [DefArrange(3) = 2] // oSurface.DefArrange(3) = 2 oSurface.Arrange(h3) oSurface.EndUpdate() |
97 |
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it
|
96 |
Is it possible to change the distance between elements, when calling the Arrange method
|
95 |
How do I organize vertically the elements
|
94 |
Is there a way to create a link which has the same start and end element
|
93 |
How can I prevent hiding the item when an item with an outgoing link, is collapsed
|
92 |
How can I change the toolbar's visual appearance
|
91 |
How can I change the toolbar's background color
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(149) = 16777215] // oSurface.Background(149) = 0xffffff |
90 |
How can I fit or ensure that all elements are in the control's client area
|
89 |
When I use the context menu to insert an image, the size seems to be fixed to 32 pixels. How can I control / change this
|
88 |
Can I add images to node while editing the node using the Edit method
|
87 |
I am using the Edit method to edit the node, but still not able to display multiple lines. Is this possible
|
86 |
How can I change the visual appearance of the edit's context menu
|
85 |
How can I edit the node once the user right-click the element
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) CreateElement = class::nativeObject_CreateElement endwith */ // The user creates at runtime a new element. function nativeObject_CreateElement(Element) /* Element.Edit(0) */ /* Element.AutoSize = True */ oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject ? "Call Edit(0) method of the Element object" return /* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) RClick = class::nativeObject_RClick endwith */ // Occurs once the user right clicks the control. function nativeObject_RClick() /* SelElement(0).Edit(0) */ oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Selection = oSurface.ElementFromPoint(-1,-1) ? "Call Edit(0) method of the SelElement(0) property" return local oSurface,var_Element,var_Element1,var_Element2,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements // var_Elements.Add("Element A").ID = "A" var_Element = var_Elements.Add("Element A") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ID = "A"] endwith // var_Elements.Add("Element B",96,48).ID = "B" var_Element1 = var_Elements.Add("Element B",96,48) with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.ID = "B"] endwith // var_Elements.Add("Element C",48,24).BackColor = 0xffffff var_Element2 = var_Elements.Add("Element C",48,24) with (oSurface) TemplateDef = [dim var_Element2] TemplateDef = var_Element2 Template = [var_Element2.BackColor = 16777215] endwith |
84 |
I wish to return the name that is displayed in the Element that I have selected
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) SelectionChanged = class::nativeObject_SelectionChanged endwith */ // Notifies your application that the control's selection has been changed. function nativeObject_SelectionChanged() oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject ? "The number of selected elements is: " ? Str(oSurface.SelCount) ? oSurface.SelElement(0).Caption return local oSurface,var_Element,var_Element1,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.HideSel = false oSurface.SelectObjectColorInactive = oSurface.SelectObjectColor oSurface.SelectObjectTextColorInactive = oSurface.SelectObjectTextColor var_Elements = oSurface.Elements // var_Elements.Add("Element 1").Selected = true var_Element = var_Elements.Add("Element 1") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.Selected = True] endwith var_Element1 = var_Elements.Add("Element 2") var_Element1.X = 32 var_Element1.Y = 32 |
83 |
Been playing with the surface control with the embedded ExGrid ActiveX...I can see most events coming through via the Surface control but I can't get the OnOLEStartDrag event to fire
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) OleEvent = class::nativeObject_OleEvent endwith */ // Occurs once an inside control fires an event. function nativeObject_OleEvent(Element,Ev) /* Ev.Param(1).Value = 2 */ /* Ev.Param(0).Value.SetData("items to be carried") */ oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject ? Str(Ev) return local oSurface,var_Element,var_Elements,var_Object oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.BeginUpdate() var_Elements = oSurface.Elements var_Element = var_Elements.InsertControl("Exontrol.Grid") var_Element.ElementFormat = "" + ["] + "client" + ["] + "" var_Object = var_Element.Object oSurface.MoveCorner(17,0) oSurface.EndUpdate() |
82 |
Is it possible to assign/add a percent to
an element
|
81 |
How can I disable selecting the nodes/elements
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.AllowSelectObject = 0 oSurface.AllowSelectNothing = false oSurface.AllowSelectObjectRect = 0 oSurface.AllowToggleSelectKey = 0 |
80 |
How can I set my zooming levels on the control's toolbar
|
79 |
How can I prevent zooming the surface
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.AllowZoomSurface = 0 oSurface.AllowZoomWheelSurface = false oSurface.ToolBarFormat = "-1,100" |
78 |
How can I prevent adding the links
|
77 |
How can I fix all elements on the surface, so no moving or resizing is allowed
local oSurface,var_Element,var_Element1,var_Element2,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.AllowResizeObject = 0 oSurface.AllowMoveObject = 0 var_Elements = oSurface.Elements // var_Elements.Add("Element A").ID = "A" var_Element = var_Elements.Add("Element A") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ID = "A"] endwith // var_Elements.Add("Element B",96,24).ID = "B" var_Element1 = var_Elements.Add("Element B",96,24) with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.ID = "B"] endwith // var_Elements.Add("Element C",48,12).BackColor = 0xffffff var_Element2 = var_Elements.Add("Element C",48,12) with (oSurface) TemplateDef = [dim var_Element2] TemplateDef = var_Element2 Template = [var_Element2.BackColor = 16777215] endwith |
76 |
How can I link elements with no pressing the SHIFT key
|
75 |
How can I disable creating the tree/hierarchies
|
74 |
How can I create new elements using simple clicks rather than double clicks
|
73 |
How can I disable creating new elements at runtime
|
72 |
I've noticed that the links cut the elements. Is it possible to show the links on the back
|
71 |
How can I show a picture on the link
local oSurface,var_Element,var_Element1,var_Elements,var_Link,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oSurface.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" var_Elements = oSurface.Elements // var_Elements.Add("Element A").ID = "A" var_Element = var_Elements.Add("Element A") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ID = "A"] endwith // var_Elements.Add("Element B",96,24).ID = "B" var_Element1 = var_Elements.Add("Element B",96,24) with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.ID = "B"] endwith var_Links = oSurface.Links // var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("B")).Caption = "<img>pic1:24</img>" var_Link = var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("B")) with (oSurface) TemplateDef = [dim var_Link] TemplateDef = var_Link Template = [var_Link.Caption = "<img>pic1:24</img>"] endwith oSurface.ShowLinksType = 2 |
70 |
How can I show a caption on the link
local oSurface,var_Element,var_Element1,var_Elements,var_Link,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements // var_Elements.Add("Element A").ID = "A" var_Element = var_Elements.Add("Element A") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ID = "A"] endwith // var_Elements.Add("Element B",96,24).ID = "B" var_Element1 = var_Elements.Add("Element B",96,24) with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.ID = "B"] endwith var_Links = oSurface.Links // var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("B")).Caption = "link" var_Link = var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("B")) with (oSurface) TemplateDef = [dim var_Link] TemplateDef = var_Link Template = [var_Link.Caption = "link"] endwith oSurface.ShowLinksType = 2 |
69 |
I am using EBN to show my arrows, the question is if I can make it bigger/larger
local oSurface,var_Appearance,var_Element,var_Element1,var_Element2,var_Elements,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Appearance = oSurface.VisualAppearance var_Appearance.Add(1,"c:\exontrol\images\normal.ebn") var_Appearance.Add(2,"CP:1 -2 -2 2 2") var_Elements = oSurface.Elements // var_Elements.Add("Element A").ID = "A" var_Element = var_Elements.Add("Element A") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ID = "A"] endwith // var_Elements.Add("Element B",96,24).ID = "B" var_Element1 = var_Elements.Add("Element B",96,24) with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.ID = "B"] endwith // var_Elements.Add("Element C",96,-24).ID = "C" var_Element2 = var_Elements.Add("Element C",96,-24) with (oSurface) TemplateDef = [dim var_Element2] TemplateDef = var_Element2 Template = [var_Element2.ID = "C"] endwith var_Links = oSurface.Links var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("B")) var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("C")) oSurface.LinksArrowColor = 0x2000000 |
68 |
Is it possible to show different type of arrows for links
local oSurface,var_Element,var_Element1,var_Element2,var_Elements,var_Link,var_Link1,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_Elements = oSurface.Elements // var_Elements.Add("Element A").ID = "A" var_Element = var_Elements.Add("Element A") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ID = "A"] endwith // var_Elements.Add("Element B",96,24).ID = "B" var_Element1 = var_Elements.Add("Element B",96,24) with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.ID = "B"] endwith // var_Elements.Add("Element C",96,-24).ID = "C" var_Element2 = var_Elements.Add("Element C",96,-24) with (oSurface) TemplateDef = [dim var_Element2] TemplateDef = var_Element2 Template = [var_Element2.ID = "C"] endwith var_Links = oSurface.Links // var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("B")).ArrowColor = 0xff var_Link = var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("B")) with (oSurface) TemplateDef = [dim var_Link] TemplateDef = var_Link Template = [var_Link.ArrowColor = 255] endwith // var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("C")).ArrowColor = 0x1000000 var_Link1 = var_Links.Add(oSurface.Elements.Item("A"),oSurface.Elements.Item("C")) with (oSurface) TemplateDef = [dim var_Link1] TemplateDef = var_Link1 Template = [var_Link1.ArrowColor = 16777216] endwith |
67 |
How can I remove or clear the entire surface
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Elements.Add("element") oSurface.Elements.Clear() oSurface.Home() |
66 |
How can I programmatically add a child element, or create a tree/hierarchy
local oSurface,var_Element,var_Element1,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements // var_Elements.Add("Root").ID = "rootID" var_Element = var_Elements.Add("Root") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ID = "rootID"] endwith var_Elements.Insert("Child 1","rootID") // var_Elements.Insert("Child 2","rootID").ID = "childID" var_Element1 = var_Elements.Insert("Child 2","rootID") with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.ID = "childID"] endwith var_Elements.Insert("Child 3","rootID") var_Elements.Insert("Sub-Child 1.2","childID") var_Elements.Insert("Sub-Child 2.2","childID") |
65 |
I've noticed that the element's background is transparent. Can I make it opaque
local oSurface,var_Element,var_Element1,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements // var_Elements.Add("new 1").BackColor = 0xffffff var_Element = var_Elements.Add("new 1") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.BackColor = 16777215] endwith // var_Elements.Add("new 1",24,24).BackColor = 0xf0f0f0 var_Element1 = var_Elements.Add("new 1",24,24) with (oSurface) TemplateDef = [dim var_Element1] TemplateDef = var_Element1 Template = [var_Element1.BackColor = 15790320] endwith |
64 |
How can I add a resizable element
local oSurface,var_Element,var_Element1,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.Add("new 1") var_Element.AutoSize = false var_Element.Resizable = true var_Element1 = var_Elements.Add("new 1",24,24) var_Element1.AutoSize = false var_Element1.Resizable = true |
63 |
How can I programmatically add a new element
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Elements.Add("new 1") var_Elements.Add("new 1",24,24) |
62 |
Is it possible to assign a tooltip to an element
local oSurface,var_Element oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject // oSurface.Elements.Add("Element with a Tooltip").ToolTip = "This is a bit of text that should be displayed when cursor hovers the element." var_Element = oSurface.Elements.Add("Element with a Tooltip") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.ToolTip = "This is a bit of text that should be displayed when cursor hovers the element."] endwith |
61 |
How do I specify direct/straight link for all links
local oSurface,var_Elements,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.ShowLinksType = 3 /*exLinkStraight | exLinkDirect*/ var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",96,24) var_Links = oSurface.Links var_Links.Add(oSurface.Elements.Item(1),oSurface.Elements.Item(2)) |
60 |
How do I show a direct/straight link
local oSurface,var_Elements,var_Link,var_Links oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",96,24) var_Links = oSurface.Links // var_Links.Add(oSurface.Elements.Item(1),oSurface.Elements.Item(2)).ShowLinkType = 3 /*exLinkStraight | exLinkDirect*/ var_Link = var_Links.Add(oSurface.Elements.Item(1),oSurface.Elements.Item(2)) with (oSurface) TemplateDef = [dim var_Link] TemplateDef = var_Link Template = [var_Link.ShowLinkType = 3] endwith |
59 |
How can I ensure that a specified element fits the surface's visible area
|
58 |
Is it possible to show a pattern like ( not available ) over an element
|
57 |
How can I specify a different overview color for the element
local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements // var_Elements.Add("Element+A",-100).OverviewColor = 0xff var_Element = var_Elements.Add("Element+A",-100) with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.OverviewColor = 255] endwith var_Elements.Add("Element+B",100) oSurface.Template = [ScrollPos(True) = 512] // oSurface.ScrollPos(true) = 512 |
56 |
I've noticed that some lines are shown on the border, how can I get ride of them
|
55 |
How can I handle clicking an icon or a picture
|
54 |
How can I display a picture
local oSurface,var_Element oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oSurface.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" oSurface.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oSurface.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" // oSurface.Elements.Add("Element").Pictures = "pic1/pic2" var_Element = oSurface.Elements.Add("Element") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.Pictures = "pic1/pic2"] endwith |
53 |
How can I display a picture
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oSurface.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" oSurface.Template = [HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"] // oSurface.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" oSurface.Elements.Add("Icon <img>pic1</img> or <img>pic2</img>") |
52 |
How can I display an icon
|
51 |
How can I display an icon
|
50 |
How can I prevent moving all descendent/outgoing elements when focused element is moved, more like a free move
|
49 |
How can I display the +/- expand/collapse glyphs next to linked elements
|
48 |
How can I host the Exontrol.Button inside the surface
local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.Add("ActiveX") var_Element.Type = 2 var_Element.ElementFormat = "" + ["] + "check" + ["] + ":18," + ["] + "client" + ["] + "" var_Element.ShowCheckBox = true var_Element.Control = "Exontrol.Button" var_Element.Object.Caption = "<sha ;;0>button" var_Element.Height = 32 var_Element.Width = 128 |
47 |
How can I host a Command button
|
46 |
How can I handle the events of the inner ActiveX control
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) OleEvent = class::nativeObject_OleEvent endwith */ // Occurs once an inside control fires an event. function nativeObject_OleEvent(Element,Ev) oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject ? Str(Ev) return local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.InsertControl("Forms.CommandButton.1") var_Element.ElementFormat = "" + ["] + "check" + ["] + ":18," + ["] + "client" + ["] + "" var_Element.Object.Caption = "command" var_Element.ShowCheckBox = true var_Element.Height = 48 var_Element.Width = 128 |
45 |
How can I display a checkbox while my node hosts an ActiveX inside
local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.InsertControl("Forms.CommandButton.1") var_Element.ElementFormat = "" + ["] + "check" + ["] + ":18," + ["] + "client" + ["] + "" var_Element.Object.Caption = "command" var_Element.ShowCheckBox = true var_Element.Height = 48 var_Element.Width = 128 |
44 |
Is it possible to display a caption while the element hosts an ActiveX control
local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.InsertControl("Forms.CommandButton.1") var_Element.ElementFormat = "18;" + ["] + "caption" + ["] + "/" + ["] + "client" + ["] + "" var_Element.Object.Caption = "command" var_Element.Caption = "Forms.CommandButton" var_Element.CaptionAlign = 1 var_Element.Height = 48 var_Element.Width = 128 |
43 |
I host an ActiveX control but it does not cover the whole element. What can be done
local oSurface,var_Element,var_Element1,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.InsertControl("Forms.CommandButton.1") var_Element.ElementFormat = "" + ["] + "client" + ["] + "" var_Element.Object.Caption = "command" var_Element.Height = 32 var_Element.Width = 128 var_Element1 = var_Elements.InsertControl("Forms.CommandButton.1") var_Element1.ElementFormat = "" + ["] + "client" + ["] + "" var_Element1.Object.Caption = "command" var_Element1.Height = 32 var_Element1.Width = 128 |
42 |
How can I host my ActiveX to the surface (method 2)
|
41 |
How can I host my ActiveX to the surface (method 1)
local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.Add("ActiveX") var_Element.Type = 2 var_Element.ElementFormat = "" + ["] + "client" + ["] + "" var_Element.Control = "Forms.CommandButton.1" var_Element.Object.Caption = "command" var_Element.Height = 32 var_Element.Width = 128 |
40 |
How can I define the elements with a solid color on the background
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(88) = -1] // oSurface.Background(88) = -1 oSurface.Template = [Background(89) = -1] // oSurface.Background(89) = -1 oSurface.Template = [Background(90) = 255] // oSurface.Background(90) = 0xff var_Elements = oSurface.Elements var_Elements.Add("Node A") var_Elements.Add("Node B",96,24) |
39 |
Can I display the status to a different part of the element
local oSurface,var_Element oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject // oSurface.Elements.Add("Node").StatusAlign = 3 var_Element = oSurface.Elements.Add("Node") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.StatusAlign = 3] endwith |
38 |
How can I remove or hide the status part of the event
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) AddElement = class::nativeObject_AddElement endwith */ // A new element has been added to the surface. function nativeObject_AddElement(Element) /* Element.StatusSize = 0 */ oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject return local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(89) = -1] // oSurface.Background(89) = -1 var_Elements = oSurface.Elements var_Elements.Add("Node A") var_Elements.Add("Node B",96,24) |
37 |
How can I change the visual appearance of the border for all elements
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") oSurface.Template = [Background(88) = 16777216] // oSurface.Background(88) = 0x1000000 var_Elements = oSurface.Elements var_Elements.Add("Element+A") var_Elements.Add("Element+B",96,24) |
36 |
How can I change the color of the border for all elements
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(88) = 65280] // oSurface.Background(88) = 0xff00 var_Elements = oSurface.Elements var_Elements.Add("Element+A") var_Elements.Add("Element+B",96,24) |
35 |
How can I remove the border for all elements
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(88) = -1] // oSurface.Background(88) = -1 var_Elements = oSurface.Elements var_Elements.Add("Element+A") var_Elements.Add("Element+B",96,24) |
34 |
How do I change the visual appearance the glpyh that shows when the element is added as a child
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") oSurface.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") oSurface.Template = [Background(86) = 16777216] // oSurface.Background(86) = 0x1000000 oSurface.Template = [Background(87) = 33554432] // oSurface.Background(87) = 0x2000000 var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",96,24) |
33 |
Is it possible to change the color for the glpyh that shows when the element is added as a child
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(86) = 255] // oSurface.Background(86) = 0xff oSurface.Template = [Background(87) = 255] // oSurface.Background(87) = 0xff var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",96,24) |
32 |
How can I change the color to show a valid link
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(83) = 65280] // oSurface.Background(83) = 0xff00 var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",96,24) |
31 |
How can I change the color to show an invalid link
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(82) = 65280] // oSurface.Background(82) = 0xff00 var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",96,24) |
30 |
How can I disable adding the elements as child of other nodes
local oSurface,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.AllowInsertObject = false var_Elements = oSurface.Elements var_Elements.Add("Element <sha ;;0>A") var_Elements.Add("Element <sha ;;0>B",96,24) |
29 |
How can I prevent moving the outgoing /descendents elements when moving an element
|
28 |
How can I add programatically a link
|
27 |
How do I prevent adding a link between elements
|
26 |
How can I hide the 100% button ( zoom ) on the control's toolbar
|
25 |
Is it possible to hide the Home button on the control's toolbar
|
24 |
How can I hide the grid lines, including the axis
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.ShowGridLines = false oSurface.AxisStyle = -1 |
23 |
How can I hide the grid lines
|
22 |
How can I clear the images shown on the control's toolbar
|
21 |
How can I replace the default icons shown on the control's toolbar
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.ToolBarReplaceIcon(0,-1) oSurface.ToolBarImages("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=") |
20 |
How can I replace the default icons shown on the control's toolbar
|
19 |
How can I add an anchor element to the control's toolbar
|
18 |
How can I add a button/image to the control's toolbar
|
17 |
How can I add a button to the control's toolbar
|
16 |
How can I hide the control's toolbar
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.ToolBarVisible = false |
15 |
How can I prevent selecting the elements
|
14 |
How can I show the selected elements the same as the control has the focus
local oSurface,var_Element oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.HideSel = false oSurface.SelectObjectColorInactive = oSurface.SelectObjectColor oSurface.SelectObjectTextColorInactive = oSurface.SelectObjectTextColor // oSurface.Elements.Add("element").Selected = true var_Element = oSurface.Elements.Add("element") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.Selected = True] endwith |
13 |
How can I show the selected elements with a different border
|
12 |
How can I show the selected elements with a different background color
|
11 |
Is it possible to add an inner control on the surface
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) OleEvent = class::nativeObject_OleEvent endwith */ // Occurs once an inside control fires an event. function nativeObject_OleEvent(Element,Ev) oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject ? Str(Ev) return local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject var_Elements = oSurface.Elements var_Element = var_Elements.Add("activex hosting") var_Element.Type = 2 var_Element.Control = "Forms.CommandButton.1" var_Element.Caption = "Command Button" var_Element.Height = 64 var_Element.Width = 128 var_Element.ElementFormat = "14;" + ["] + "caption" + ["] + "/" + ["] + "client" + ["] + "" var_Element.CaptionAlign = 1 |
10 |
How can I make the control read-only
|
9 |
How can I handle clicking a picture on the element
|
8 |
How can I show the hand cursor when user hovers the element's image
|
7 |
How can I show the hand cursor when user hovers the element's checkbox
|
6 |
How can I remove the status part for all elements
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) AddElement = class::nativeObject_AddElement endwith */ // A new element has been added to the surface. function nativeObject_AddElement(Element) /* Element.StatusSize = 0 */ oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject return local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(89) = -1] // oSurface.Background(89) = -1 oSurface.Elements.Add("new element") |
5 |
How can I remove the border for all elements
local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.Template = [Background(88) = -1] // oSurface.Background(88) = -1 oSurface.Elements.Add("new element") |
4 |
How do I edit the element's caption once the user creates the element
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) CreateElement = class::nativeObject_CreateElement endwith */ // The user creates at runtime a new element. function nativeObject_CreateElement(Element) /* Element.Edit(0) */ /* Element.AutoSize = True */ oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject return local oSurface oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject |
3 |
How can I align the element's checkbox next to the text
local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.BeginUpdate() var_Elements = oSurface.Elements var_Element = var_Elements.Add("text") var_Element.ShowCheckBox = true var_Element.CaptionAlign = 2 var_Element.CheckBoxAlign = 0 oSurface.EndUpdate() |
2 |
How can I assign a check-box to all elements
/* with (this.EXSURFACEACTIVEXCONTROL1.nativeObject) AddElement = class::nativeObject_AddElement endwith */ // A new element has been added to the surface. function nativeObject_AddElement(Element) /* Element.ShowCheckBox = True */ oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject return local oSurface,var_Element,var_Elements oSurface = form.EXSURFACEACTIVEXCONTROL1.nativeObject oSurface.BeginUpdate() var_Elements = oSurface.Elements var_Elements.Add("",-24,-24) // var_Elements.Add("").Checked = 1 var_Element = var_Elements.Add("") with (oSurface) TemplateDef = [dim var_Element] TemplateDef = var_Element Template = [var_Element.Checked = 1] endwith oSurface.Home() oSurface.EndUpdate() |
1 |
How do I change the control's background color
|